home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / simplediff.fpl < prev    next >
Text File  |  1995-07-18  |  458b  |  27 lines
  1. export int SimpleDiff()
  2. {
  3.   int inputid=GetEntryID();        // Current entry
  4.   int nextview=NextView();
  5.   string line;
  6.   int diff;
  7.  
  8.   Visible(0);
  9.   do {
  10.     CurrentBuffer(inputid);
  11.     if (!CursorDown()) {
  12.       return;
  13.     }
  14.     line=GetLine();
  15.     CurrentBuffer(nextview);
  16.     CursorDown();
  17.     diff=strcmp(GetLine(), line);
  18.   } while (!diff);
  19.   Visible(1);
  20.   if (diff)
  21.     InverseLine();
  22.  
  23.   CurrentBuffer(inputid);
  24. }
  25.  
  26. AssignKey("SimpleDiff();", "Alt '0x2e'");
  27.